home *** CD-ROM | disk | FTP | other *** search
/ 100 Plus Great Games 2 / 100PLUSV2.BIN / games / CarribeanPoker.dxr / Internal_13_cash out-.ls < prev    next >
Encoding:
Text File  |  2002-01-25  |  925 b   |  50 lines
  1. property pSprite, spriteNum, pNormal, pRollover, pPressed, pDisabled, pActive
  2. global gPlayerUI
  3.  
  4. on beginSprite me
  5.   pSprite = sprite(spriteNum)
  6.   pNormal = pSprite.member
  7.   gPlayerUI.addProp(pNormal.name.symbol, pSprite)
  8.   pRollover = member(pSprite.member.name && "over")
  9.   pPressed = member(pSprite.member.name && "down")
  10.   pDisabled = member(pSprite.member.name && "dis")
  11.   pActive = 1
  12.   me.toggleActive(#off)
  13. end
  14.  
  15. on mouseEnter me
  16.   if pActive then
  17.     pSprite.member = pRollover
  18.   end if
  19. end
  20.  
  21. on mouseLeave me
  22.   if pActive then
  23.     pSprite.member = pNormal
  24.   end if
  25. end
  26.  
  27. on mouseDown me
  28.   if pActive then
  29.     pSprite.member = pPressed
  30.   end if
  31. end
  32.  
  33. on toggleActive me, onOff
  34.   case onOff of
  35.     #on:
  36.       pSprite.member = pNormal
  37.       pActive = 1
  38.     #off:
  39.       pSprite.member = pDisabled
  40.       pActive = 0
  41.   end case
  42. end
  43.  
  44. on mouseUp me
  45.   if pActive then
  46.     pSprite.member = pNormal
  47.     go("Game over")
  48.   end if
  49. end
  50.